﻿Public Class formcstring

    Private Sub btnregedit_Click(sender As Object, e As EventArgs) Handles btncstring.Click
        Dim ruta As String
        Dim parametros As String


        ruta = "c:\program files\TechTools\cstring.exe"
        parametros = textipcstring.Text

        lbn2.Text = ""

        If My.Computer.Network.Ping(parametros) = True Then
            Shell(ruta & " " & parametros, vbNormalFocus)

        Else
            lbn2.Text = "IP Address is shutdown or incorrect"
            Return

        End If

        textipcstring.Clear()

        Me.Close()


    End Sub

    Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
        Me.Close()

    End Sub
End Class